#!/usr/bin/perl
# Update the manually edited config file

require '../netebbms-lib.pl';

#&ReadParseMime();
&ReadParse();

&error_setup($text{'manual_err'});

&ui_print_header(undef, $text{'twitterbot_title'}, '', undef, 1, 1);





print '%in<br>';
while (($key, $value) = each(%in)) {
	print $key," = ", $value, '<br>';
}



#$in{'data'} =~ s/\r//g;
#$in{'data'} =~ /\S/ || &error($text{'manual_edata'});

#&open_lock_tempfile(DATA, ">$config{'smb_conf'}");
#&open_lock_tempfile(DATA, ">/tmp/test.txt");
#&print_tempfile(DATA, $in{'data'});
#&close_tempfile(DATA);

#&webmin_log("manual", undef, $config{'smb_conf'});
#&redirect('');

